home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Compute! Gazette 1993 April
/
1993-04.d64
/
seq file printer
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-09-20
|
540b
|
21 lines
5 poke53280,6:poke53281,6:print"[147]"
10 print "[147]":d=8
20 print:f$="":input "filename";f$:if f$="" then end
30 open 15,d,15:open 8,d,8,"0:"+f$+",s,r":close 8:input#15,e,e$:close 15
40 if e then print e$:goto 20
50 print "s[146]creen or p[146]rinter?"
60 get k$
70 if k$="s" then 100
80 if k$="p" then 150
90 goto 60
100 open 8,d,8,"0:"+f$+",s,r"
110 if peek(653)=1 then 110
120 get k$:if k$="_" then close 8:goto 20
130 get#8,a$:if st=64 then close 8:goto 20
140 print a$;:goto 110
150 open 8,d,8,"0:"+f$+",s,r":open 4,4,7
160 if peek(653)=1 then 160
170 get k$:if k$="_" then close 8:close 4:goto 20
180 get#8,a$:if st=64 then close 8:close 4:goto 20
190 print#4,a$;:goto 150